home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Magazine
/
WiredWorld
/
THOR_2.5
/
thor25_arexx.lha
/
Examples
/
ShowText_ex.thor
< prev
Wrap
Text File
|
1995-09-06
|
355b
|
27 lines
/*
*
* ShowText_ex.thor - example program for the SHOWTEXT function
*
*/
options results
thorport = address()
REQUESTFILE title '"Select text file to view:"' id '"s:"' fullpath
if(rc ~= 0) then
do
if(rc = 30) then say THOR.LASTERROR
exit
end
filename = result
SHOWTEXT file '"'filename'"' CMT
if(rc = 30) then
do
say THOR.LASTERROR
end
exit